DECLARE FUNCTION OpenScreen24& LIBRARY
DECLARE FUNCTION LoadIFF24& LIBRARY


LIBRARY "opal.library"

INPUT "Lay a file on me:",File$
File$ = File$+CHR$(0)
FileName& = SADD (File$)
OScrn& = LoadIFF24& (0,FileName&,0)
CALL Refresh24
CALL PaletteMap24 (1)
CALL FadeIn24 (300)
FOR i=0 TO 320
  CALL Scroll24 (1,0)
NEXT i

FOR i=0 TO 320
  CALL Scroll24 (-1,0)
NEXT i

FOR y& = 50 TO 100
  FOR x&=200 TO 300
    CALL WritePixel24 (OScrn&,x&,y&)
  NEXT x&
NEXT y& 

CALL Refresh24
FOR i=0 TO 10000
NEXT i

CALL CloseScreen24
LIBRARY CLOSE